object fmExpenses: TfmExpenses
  Left = 0
  Top = 0
  Caption = 'Expenses'
  ClientHeight = 434
  ClientWidth = 650
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poOwnerFormCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    650
    434)
  PixelsPerInch = 96
  TextHeight = 13
  object Label14: TLabel
    Left = 8
    Top = 8
    Width = 46
    Height = 13
    Caption = 'Expenses'
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 183
    Width = 633
    Height = 209
    Anchors = [akLeft, akRight, akBottom]
    Caption = 'Expense'
    TabOrder = 1
    DesignSize = (
      633
      209)
    object lblDate: TLabel
      Left = 536
      Top = 24
      Width = 3
      Height = 13
    end
    object Label1: TLabel
      Left = 230
      Top = 24
      Width = 27
      Height = 13
      Caption = '&Name'
    end
    object Label3: TLabel
      Left = 496
      Top = 24
      Width = 23
      Height = 13
      Caption = '&Date'
    end
    object Label2: TLabel
      Left = 16
      Top = 50
      Width = 22
      Height = 13
      Caption = '&Year'
    end
    object Label5: TLabel
      Left = 221
      Top = 50
      Width = 37
      Height = 13
      Caption = '&Amount'
    end
    object Label4: TLabel
      Left = 16
      Top = 163
      Width = 36
      Height = 13
      Caption = '&Remark'
    end
    object Label6: TLabel
      Left = 16
      Top = 23
      Width = 45
      Height = 13
      Caption = '&Category'
    end
    object Label7: TLabel
      Left = 121
      Top = 50
      Width = 30
      Height = 13
      Caption = '&Month'
    end
    object Label8: TLabel
      Left = 339
      Top = 50
      Width = 50
      Height = 13
      Caption = '&Reference'
    end
    object Label9: TLabel
      Left = 16
      Top = 77
      Width = 45
      Height = 13
      Caption = 'Due Date'
    end
    object Label10: TLabel
      Left = 16
      Top = 104
      Width = 68
      Height = 13
      Caption = '&Payment Date'
    end
    object Label11: TLabel
      Left = 198
      Top = 104
      Width = 69
      Height = 13
      Caption = '&Payment Type'
    end
    object Label12: TLabel
      Left = 16
      Top = 131
      Width = 95
      Height = 13
      Caption = '&Payment Reference'
    end
    object Label13: TLabel
      Left = 395
      Top = 104
      Width = 60
      Height = 13
      Caption = 'Paid Amount'
    end
    object txtYear: TEdit
      Left = 59
      Top = 47
      Width = 38
      Height = 21
      Alignment = taRightJustify
      NumbersOnly = True
      TabOrder = 1
      Text = '2000'
    end
    object txtAmount: TEdit
      Left = 263
      Top = 47
      Width = 62
      Height = 21
      Alignment = taRightJustify
      TabOrder = 5
      Text = '0.00'
      OnExit = txtAmountExit
      OnKeyPress = txtAmountKeyPress
    end
    object mmRemark: TMemo
      Left = 59
      Top = 160
      Width = 561
      Height = 38
      Anchors = [akLeft, akTop, akRight, akBottom]
      TabOrder = 13
    end
    object dbcbExpenseCategory: TDBLookupComboBox
      Left = 68
      Top = 20
      Width = 145
      Height = 21
      KeyField = 'ID'
      ListField = 'DSC'
      ListSource = DataModule1.dsExpenseCategory
      TabOrder = 0
    end
    object UpDown1: TUpDown
      Left = 97
      Top = 47
      Width = 17
      Height = 21
      Associate = txtYear
      Min = 2000
      Max = 2050
      Position = 2000
      TabOrder = 2
      Thousands = False
    end
    object UpDown2: TUpDown
      Left = 185
      Top = 47
      Width = 17
      Height = 21
      Associate = txtMonth
      Min = 1
      Max = 12
      Position = 1
      TabOrder = 4
      Thousands = False
    end
    object txtMonth: TEdit
      Left = 157
      Top = 47
      Width = 28
      Height = 21
      Alignment = taRightJustify
      NumbersOnly = True
      TabOrder = 3
      Text = '1'
    end
    object txtReference: TEdit
      Left = 395
      Top = 47
      Width = 121
      Height = 21
      TabOrder = 6
    end
    object dtDueDate: TDateTimePicker
      Left = 68
      Top = 74
      Width = 94
      Height = 21
      Date = 41094.449235451390000000
      Format = 'dd/MM/yyyy'
      Time = 41094.449235451390000000
      TabOrder = 8
    end
    object dtPaymentDate: TDateTimePicker
      Left = 90
      Top = 101
      Width = 94
      Height = 21
      Date = 41094.449235451390000000
      Format = 'dd/MM/yyyy'
      Time = 41094.449235451390000000
      TabOrder = 9
    end
    object chkBillable: TCheckBox
      Left = 179
      Top = 76
      Width = 54
      Height = 17
      Caption = '&Billable'
      TabOrder = 7
    end
    object dbcbPaymentType: TDBLookupComboBox
      Left = 273
      Top = 101
      Width = 107
      Height = 21
      KeyField = 'NAME'
      ListField = 'DSC'
      ListSource = DataModule1.dsPaymentType
      TabOrder = 10
    end
    object txtPaidAmount: TEdit
      Left = 461
      Top = 101
      Width = 55
      Height = 21
      Alignment = taRightJustify
      TabOrder = 11
      Text = '0.00'
      OnExit = txtPaidAmountExit
      OnKeyPress = txtPaidAmountKeyPress
    end
    object txtPaymentReference: TEdit
      Left = 117
      Top = 128
      Width = 121
      Height = 21
      TabOrder = 12
    end
    object cbName: TComboBox
      Left = 263
      Top = 20
      Width = 214
      Height = 21
      TabOrder = 14
      OnDropDown = cbNameDropDown
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 32
    Width = 633
    Height = 145
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = DataModule1.dsExpenses2
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'CATEGORY_NAME'
        Title.Caption = 'Category'
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ID'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'CATEGORY_ID'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Caption = 'Name'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SUPPLIER_ID'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'PERIOD_YEAR'
        Title.Caption = 'Year'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PERIOD_MONTH'
        Title.Caption = 'Month'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'AMOUNT'
        Title.Caption = 'Amount'
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'REFERENCE'
        Title.Caption = 'Reference'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DUE_DATE'
        Title.Caption = 'Due Date'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PAID'
        Title.Caption = 'Paid'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PAYMENT_DATE'
        Title.Caption = 'Payment Date'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PAYMENT_TYPE'
        Title.Caption = 'Paid By'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PAYMENT_REFERENCE'
        Title.Caption = 'Payment Ref.'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PAID_AMOUNT'
        Title.Caption = 'Paid Amount'
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BILLABLE'
        Title.Caption = 'Billable'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'REMARK'
        Title.Caption = 'Remark'
        Width = 100
        Visible = True
      end>
  end
  object btnNew: TButton
    Left = 206
    Top = 401
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&New'
    TabOrder = 2
    OnClick = btnNewClick
  end
  object btnEdit: TButton
    Left = 287
    Top = 401
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&Edit'
    TabOrder = 3
    OnClick = btnEditClick
  end
  object btnSave: TButton
    Left = 368
    Top = 401
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&Save'
    TabOrder = 4
    OnClick = btnSaveClick
  end
  object btnClose: TButton
    Left = 567
    Top = 401
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&Close'
    TabOrder = 5
    OnClick = btnCloseClick
  end
  object btnDelete: TButton
    Left = 449
    Top = 401
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&Delete'
    TabOrder = 6
    OnClick = btnDeleteClick
  end
end
